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Cage 1RBe 99:8b 38 We GhASteRccet sacSrusverm.euiet™ «1} 84 


ZTITLE ‘EDT Hb FLL TERAL - format literal’ 
MODULE EDTSFLITERAL ( ' Format Literal 
pOENT = 'v04-000' ! File: FLITERAL.BLI Edit: JBS1003 
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ie DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


'* THIS fe Serke Hd FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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B23 
00 ABSTRACT: 
003 ; 
003 Format literal. 
37 003 
3 sit ENVIRONMENT: Runs at any access mode - AST reentrant 
“9 Bes AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 
$g Bee MODIFIED BY: 
44 0044 1-001 - Original. DJS 19-FEB-1981. This module was created by 
45 045 euirecs ing routine EDTSSFMT it iros. module FORMAT. 
46 046 1-002 - Regularize headers. JBS 05-Mar~1 
$s Byer 1-00 - Don't store into the parameter aden JBS 14-Jun-1983 
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ZSBITL ‘EDTSSFMT_LIT = format a Literal 
GLOBAL ROUTINE EDTSSFMT_LIT ( ! Format a Literal 
CPTR, ! Pointer to p tgeral string 


LEN ' Length of string 
) : NOVALUE = 


'44 


i FUNCTIONAL DESCRIPTION: 
This routine moves a string to the output buffer without any conversion. 
FORMAL PARAMETERS: 
CPTR Pointer to the string. 
LEN Length of the string. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
H NONE 
SIDE EFFECTS: 
NONE 
len 

BEGIN 


EXTERNAL ROUTINE 
EDTSSSTORE_FMTCH : NOVALUE; 


LOCAL 
_CPTR; 


L_CPTR = .CPTR; 


INCR I FROM 1 TO .LEN DO 
EDTSSSTORE_FMTCH (CHSRCHAR_A (L_CPTR)); 


END; ! of routine EDTSSFMT_LIT 
TITLE FDTSFLITERAL EDTSFLITERAL - format Literal 
-IDENT \V04-000\ 
-EXTRN EDTSSSTORE_FMTCH 


nN 3 
16-Sep-1984 00:27:5 VAX-11 Bliss-32 V4.0-74 Pa 
LIT = format a Literal 12-808- 1382 90:30:78 SEKSUMGHASTERSCEDT SRCTFLITERALBLIc} 
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EDTSFLITERAL EDTSFLITERAL = format Literal 16-Sep-1984 27:5 VAX-11 Bliss-32 V4.0-74 Page 4 
fOee000 EDTSSFMT_LIT = format a Literal 182808-1382 99355:76 DISKSVMEMASTERSCEDT SRCTFLITERAL BOLIC” (3) 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
000 .ENTRY EDTSSFMT_LIT, Save R2,R3 : 065 
53 04 AC D MOVL  CPTR, L_CPTR + 069 
D4 CLRL : + 0700 
A 11 RB a ; 
7E 3 OA A 1$ MOVZBL (L_CPTR)+, (SP) + 0701 
000000006 99 1 re 0D CALLS #1, EDT$$STORE_FMTCH : 
FI 08 AC F 14 2$ AOBLEQ LEN, I, 1$ : 
04 00019 ET + 0703 


; Routine Size: 26 bytes, Routine Base: _EDTSCODE + 0000 


; 134 070 
3 155 070 


4 1 
5 1 !<BLF/PAGE> 


i 
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; Size: 
; Run Time: :08. 
; Elapsed Time: 
; Lines/CPU Min: si? 
; Lexemes/CPU-Min: 12795 
: ponecy Used: 53 pages 
; Compilation Complete 


TERAL - format Literal 
TLIT = format a Literal 


EDTSFLITERAL EDTSFLI 
04000 EDISSFAT. 
; 7 7 $ 1 END 

8 ? 1 

9 708 0 ELUDOM 


4 
1B-Se0-1984 00:27:56 YAKCHI BL fae32 yA. 


! of module EDTSFLITERAL 


PSECT SUMMARY 


Name Bytes Attributes 
_EDTSCODE 26 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
euvacee w= Syabols ooooe=ee Pages Processing 
File Total Loaded Percent Mapped Time 
oBSSEDUACE  FEDT « SRE JEST ob 22s] 377 0 0 40 00:00.2 
_$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


BL SSE CHECI PCY SELD, SNE TEM, OPT ERLE} PUOTOACORALE A, 5095. 1081785 ERM SED IOERIS SETTER MSRC$:FLITERAL.BLI/UPDATE=(ENHS:FLIT 
L 


26 code + 0 data bytes 


rit Page 5 
~SRCJFLITERAL.BLI;1 = (4) | 


ef 
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